(push): Fix typo.

diff --git a/lisp/subr.el b/lisp/subr.el
index 5d94a2aa9add103a7728a2535463f6d3f9c15216..0d781e0082e0c6e1be9f4eb7237d164fb529423f 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -55,8 +55,8 @@ BODY should be a list of lisp expressions."
   "Add NEWELT to the list which is the value of LISTNAME.
 This is equivalent to (setq LISTNAME (cons NEWELT LISTNAME)).
 LISTNAME must be a symbol."
-  (list 'setq list
-       (list 'cons newelt list)))
+  (list 'setq listname
+       (list 'cons newelt listname)))
 
 (defmacro pop (listname)
   "Return the first element of LISTNAME's value, and remove it from the list.